﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
if sid="Null" then
Response.Redirect "/login.asp?sid="&sidd&"&url=/game/jidao/index.asp"
else
dim page,rs,sql,i,dat
    		Page = Request("page")      '当前页数
    		If Page = "" Then Page = 1
   		If Not IsNumeric(Page) Then Page = 1
    		Page = CLng(Page)
    		If Page < 1 Then Page = 1
select case v
case "0"
we0="<br/>"
hr="----------------<br/>"
%>
<card id="main" title="剪刀对战"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
ziz="<div style=""background-color:#FF5226;font-size:16px;color:#E1E100"">"
%>
<title>剪刀对战</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
qingtian.info
sangong.tj
%>
<%=ziz%>★高手排行★<%=we0%><%=we%>
<%
Set Rs = Server.CreateObject("Adodb.Recordset")
sql="select [m],[shen],[shu],[nid],[time] from qingtian_reton order by [m] desc"
			Rs.Open Sql,cn,1,1
			if not (rs.bof and rs.eof)  then
				Rs.PageSize = 15	'一页N条记录
				IF Not IsEmpty(Page) Then
					IF Not IsNumeric(Page) Then		'判断Page是否为数字
						Page=1
					Else
						Page=Cint(Page)		'转换成短整形Integer
					End IF
					IF Page > Rs.PageCount Then
						Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
					ElseIF Page <= 0 Then
						Rs.AbsolutePage = 1		'设置当前页等于第一页
					Else
						Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
					End IF
				Else
					Rs.AbsolutePage = 1
				End IF
				Page = Rs.AbsolutePage


		For i=1 to  Rs.PageSize
		If Rs.Eof Then
			exit For
		End If
			%>
			<%
dat=i+(page-1)*Rs.PageSize
                       %><%=dat%>.<a href="/user/spacev.asp?nid=<%=rs("nid")%>&amp;sid=<%=sidd%>"><%=qingtian.name(rs("nid"))%></a>(<a href="main3.asp?id=<%=rs("nid")%>&amp;sid=<%=sidd%>"><%=rs("m")%><%=qingtian.bi%></a>)<br/>
<%
	 	Rs.MoveNext
	  	Next
   		'分页
    		If Page < rs.PageCount Then
    		    Response.Write("<a href='new.asp?page=" & Page + 1 & "&amp;sid="&sidd&"'>下页</a>")
    		End If
       
    		If Page > 1 And Page < rs.PageCount Then
    		    Response.Write(" ")
    		End If
        
    		If Page > 1 Then
    		    Response.Write("<a href='new.asp?page=" & Page - 1 & "&amp;sid="&sidd&"'>上页</a>第"&Page&"/"&rs.PageCount&"页," & we0 & "")
    		Elseif rs.PageCount >1 then
    		    Response.Write("第"&Page&"/"&rs.PageCount&"页," & we0 & "")
    		End If
            
    		Randomize()
    
    		If rs.PageCount > 2 Then
                Randomize()
                if v=0 then
     		    Response.Write("共"&rs.RecordCount&"条<input name='Page' format='*N' size='2' maxlength='5'/><anchor>GO&gt;&gt;<go href='new.asp?run=" & Int((9999) * Rnd() + 1) & "&amp;sid="&sidd&"' method='post'><postfield name=""Page"" value=""$(Page:n)"" /></go></anchor><br/>")
                else
     		    Response.Write("<form action=""new.asp?run=" & Int((9999) * Rnd() + 1) & "&amp;sid="&sidd&""" method=""post"">共"&rs.RecordCount&"条<input type=""text"" name=""Page"" value="""" format=""*N"" size=""2"" maxlength=""5""/><input type=""submit"" value=""GO&gt;&gt;"" /></form><br/>")
                end if
    		End If
		end if
		Rs.close	
		        set rs=nothing
%>
<%=we1%><%=sou%><a href="index.asp?sid=<%=sidd%>">剪刀对战</a>.<a href="/game/index.asp?sid=<%=sidd%>">游戏大厅</a><%=we0%>
<%
end if
end function
%>